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| BASSSUDF _wF 15-Sep-1984 6 
S 
l 


; 1 001 MODULE BASSSUDF _WF ( ! BASIC Write Formatted UDF 

: ¢ One o pDENT = *1-013' ! File: BASUDFWF.832 Edit:PLL1013 
; ¢ ope : BEGIN 

s $ Bone : eee RREARARARARARAEKARERAERARATEHE EEA AEAETEAATETTeeeeReeeeeeteeeeeteeeRe 
: 'e * 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ee 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
: 19 iS : ALL RIGHTS RESERVED. * 
Ps ; 7 
; \¢ Big 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 1 01 1 !* ONLY IN ACCORDANCE WITH THE TERMS LICENSE AND WITH THE # 
; 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
s %9 0015 1 !* COPIES THEREOF MAY NOT B VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
H 16 0016 1 !*# HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 17 Bete 1 !® TRANSFERRED. * 
fe 0018 1 !* ® 
H 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $i it : _ CORPORATION. * 
5 't ® 
; $¢ $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$ $e ooSe ; ~ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 ! * 
; @ 0026 1 !* > 
: e7 0027 1 eee ree a ee eee ee E ERATE AAA AERA TATE ATA AA ARATE AA AAA e eee 
ic a 0028 1 ; 

3 $3 594 1 44 

; 3 Bo a0 : } FACILITY: BASIC Support Library - not user callable 

5 2 O03¢ 1 {| ABSTRACT: 

3 $2 00335 1! 

5 3 ORE : Perform the User data formatting required for Basic Print Using. 

3 $$ Bose : : ENVIRONMENT: User access mode; reentrant AST level or not. 

; Hs sits | AUTHOR: Donald G. Petersen; CREATION DATE: 14-May-79 

; 0040 1 ! MODIFIED BY: 

; «641 0041 1! 

: 42 B06 1 ! 0-001 = original. DGP Ley ey 

s; 63 0045 1! 1-08 - Change Linkage of BASSSUDF WFO. DGP 22-May-79 

s 4 0044 1 ! 1-003 - Pass a null return string fo the format interpreter. DGP 31-May-79 
3; $5 0045 1 ! 1-004 - Format string reversion must be handled here. 01-Jun-79 

: 46 0046 1 ! 1-005 - Change the output routine which takes care of the string returned 

: 47 0047 1! by the format interpreter. DGP 04-Jun- 

; 48 0048 1 ! 1-006 - Remove the unused reference to STRSCOPY. JBS 16-JUL-1979 

: 649 0049 1! He ' - Make format reversions always start a new record. DGP 01-Aug-79 

> a 0050 1 ! 1-008 - Update cursor position. 0G Oe~Aug- 9 

; 0051 1 ! 1-009 = Set temp string pointers to 0 initially. DGP 18-Sep-79 

: 26 0036 1 ! 1-010 - Pick up the scale factor from the ISB and pass it to the format 

ae 0053 1! interpreter. DGP 25-Nov-79 

; 054 1 ! 1-011 = Make PRINT USING look at the right margin. DGP 25-Jan-80 P 

; 3 055 1 ! 1-012 = When the print Line excgegy the buffer, a CRLF should not be inserted 
; = 026 , as it currently is. DGP 05-Feb-1981 | 

Fare * 0057 1 ! 1-013 = The format string descriptor must specify the class and dtype to 


BASSUDE y$-ep-1964 01:22:55 yanctt BLise=52 v4 0-742 | 


satisfy the enhanced STR$ routines. PLL 28-Sep-81 


—> Bb 4 
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Be 91:86:23 YGASntL “See SeasubFur 080; 1 


define all Linkages 


initialization 
format one user 1/0 List element 
end of user 1/0 List - finish 


Escape to CVTLD instruction 
Escape to MOVTUC instruction 


Intermodule BASIC parameters and constants 
1/0 statement block (ISB) offsets 
Only needed to get LUB Length! 


Define DECLARE_PSECTS macro 
STARLET Library for macros and symbols 


output stream 


declare PSECTs for BAS$ facility 


: 63 i 1! 

: 64 1 | SWITCHES: 

2 oes 1. 

3 e 066 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
> 69 068 1! 

; % 069 1 | LINKAGES 

¢ 0 gor 1 

; uy 0072 1 REQUIRE "RTLIN:OTSLNK'; 
; Bs 030, 1: 

: 7% 30$ 1 i TABLE OF CONTENTS: 

Ph 2S Bad! 

> 79 506 1 FORWARD ROUTINE 

: 80 0507 1 BASSSUDF_WFO : JSB_UDFO NOVALUE, ' 
; «€6BT 0508 1 BASSSUDF_WF1 : CALC_CCB NOVALUE, ! 
; : 3202 : BASSSUDF_WF9 : JSB_ODF9 NOVALUE; ! 
: B4 0511 1 BUILTIN 

; «85 O51¢ 1 CVTLD, 
3 56 Betz ' MOVTUC; ' 
: 88 0515 1! INCLUDE FILES: 

9 i a ae 

: 91 018 i REQUIRE ‘RTLML:BASPAR’; ' 
; 95 0341 REQUIRE 'RTLML:OTSISB’; 
; 95 0710 REQUIRE '"RTLML:OTSLUB'; 
; 97 0851 REQUIRE "RILIN:OTSMAC’; ' Macros 
; 132 1046 REQUIRE "RTLIN:RTLPSECT’; 
: 101 1148 1 LIBRARY "RTLSTARLE': ! 
tae 

> 104 1145 1 ' EQUATED SYMBOLS: 

{183 Wee 1 i 

: 199 1148 1! NONE 

: 108 1180 1! 
: 110 1131 MACROS: 

2S} ees 

: 114 1135 ; PSECT DECLARATIONS: 

; 116 1137 DECLARE_PSECTS (BAS); 
: 118 1159 1 ' OWN STORAGE: 

> 119 1160 1: 


| F 16 

BASSSUDF _wWF 16-Sep-1984 01:22:55 AX-11 Bliss-32 v4.0-7 Page 
RASH 14-Sep-1984 188528 BASRTL. SRC JBASUDF UF . 833; 1 ee 

: 120 1161 1! NONE 

: 121 1196 1! 

> os ; 1165 1 ! EXTERNAL REFERENCES: 

5 7 1164 1! 

3; 126 1165 1 

s Veo 1166 1 EXTERNAL ROUTINE 

: 126 1167 1 BASSSFORMAT_INT : NOVALUE, '! Basic format interpreter 

: 127 1168 1 STRSFREE ! Deallocate a dynamic string 

; 128 1169 1 BAS$$D0 WRITE : JSB_DO gk NOVALUE, ' Ovtsut routine 

; 129 1170 1 BASSSREC_ : JSB_RECO NOVALUE, ! initialize formatted output 

: 130 1171 =«1 BASSSREC “HF : JSB “REC NOVALLE ' write formatted 

$ 13) Vie ; BASSSREC_WF9 : JSB_REC9 NOVALUE; ! end formatted output 


SM  -_-- S O 2 _ —— — eS 


a comma or semicolon format character 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


| ASSSUDF _WF 18 se 1984 01 5 AX-11 "Liss-32 V4.0-74 P 5 
a = ep- 3 $ o S = «V= a 
tt 14-5 O71 984 91:88:23 EBASRTL. SRE BASUDF WF .832;1 of (3) 
; GLOBAL ROUTINE BASSSUDF _WFO ! Write formatted UDF initialization 
5 : JSB_UDFO NOVALUE = 
; 100 
FUNCTIONAL DESCRIPTION: 
Initialize PRINT USING User data formatter (UDF) 
i FORMAL PARAMETERS: 
| NONE 
i IMPLICIT INPUTS: : 
i LUBSV_AST_GUARD Guard bit for AST reentrancy 
LUBSA_BUF _PTR Pointer to next byte in user buffer 
i IMPLICIT OUTPUTS: 
i LUBS$V_AST_GUARD Guard bit for AST reentrancy 
: LUBSA_BUF _BEG Pointer to first byte of user buffer 
: LUBSA_BUF _PTR Adr of next byte of output 
‘ data buffer 
: LUBSA_BUF _END Adr of end of data buffer 
LUBS$V_FORA_CHAR indicates that last element transmitter ended in 
} 
} 
} 
} 
} 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


+ 

A guard bit is used to ensure AST reentrancy. The bit is set to 1 

at the top of the routine, tested for 1 at the bottom of the routine, 
and set to 0 upon exits ing. If the test for 1 fails at the bottom of 
the routine, then an AST has gone off and used this routine possibly 
changing the buffer pointers. Therefore this routine will loop back and 
run itself again in its entirety. 


WR $0 OONOAUE WN $9 OBNOAUES WN (“OVO ONAUES WD "OVO ONOUS WN oO 


DO 
BEGIN 


COnNOu 


'¢ 
! Set the guard bit 


a kk a a a a kk kk kk td at at 2 8 2 8 a 2 2 
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a en ne ie ee ee eee SE SS 


PROPOPIPGPONGPONOPONINYIPDNYNIPYPIPIPYINIPINPINININININININPYNINID 2 2 9 tt 
CPIPIMNINININYINDNIDS 2 9 | “DOOD OOCOOOCCO COO OOOO OO OWWWOWWMWMOWwo0~yINANS 


SOWNA UNE WN SO OONA UES WIN OOD NAUNE WN $$ SO OD NAVE WN 9 OONOAUE WN OOONOUSE 


3; Routine Size: 


= 
o 
= 


ARGV OSB LEAR US 


ooo 


MRNMNNININININININININNNNNNNN 2 2 ee 
ONOUE WN —O0On 


a os st SS SY 1 


219 


— 
eater 


i kk ee a ed ad ed ed ad od ed 
POPOPOPOPOPOPOPoPoNononoTnononononunofporonofpornoporunorny 
PUPP Be BS ES BS BB BE EWI NII 
DONA UES WN O OONOUE WN OOONOUS Wh 


1259 


1 


05 


E5 


39 bytes, 


H 16 
1er$ep=1986 11:56:43 EBASRTL>SRe SeaSuprur 039-1 


CCB CLUBSV_AST_GUARD) = 1; 


14 
Call record level to get buffer pointers. 


BASSSREC_WFO (); 


4 
} set the beginning of the buffer if there is no format character pending 


IF NOT .CCB CLUBSV_FORM_CHAR] THEN CCB CLUBSA_BUF _BEG] = .CCB CLUBSA_BUF_PTRI; 


1+ 

! Check the guard bit. If it is now 0, then an AST has gone thru this routine 
: Since the data base - have been altered in an unpredictable manner, it | 

! is necessary to redo the entire routine. Note: in worst case processing, 
the run-time for this routine is essentially unbounded. 


END 
UNTIL .CCB CLUB$V_AST_GUARD]; 
CCB CLUB$V_AST_GUARDJ = 0; 
END; 


! End of AST guard loop 


-TITLE BASSSUDF _WF 
. \1-013\ 


.EXTRN BASSSFORMAT_INT 
EXTRN STRSFREE1 DR, BASS$S$DO_WRITE 
TEXTRN BASSSREC_QFO. BASSSREC_WF 1 
“EXTRN BASSSREC_WF9 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


52 DD 00000 BASS$S$UDF Any a2 
52 AO AB 9 00002 MOVAB -96(R11), R2 
62 20 8 90006 1$ BISB2 #32, (R25 
000000006 60 16 0000 SB BAS$S$REC_wWFO 
FE AB 02 £0 0000F BBS " -2(CCB), 2% 
BC AB BO AB DO 00014 MOVL -80(CCB), -68(CCB) 
5 AO AB 9E 90019 2$ MOVAB -96(R11). R2 
62 05 7 001D C #5, (R2). 1$ 
6 20 8A 90021 BICB2 #32, (R25 
. 04 BA 00024 POPR #*M<R2> 
05 00026 RSB 


Routine Base: _BASSCODE + 0000 


Sete Se Ce Se Se Se Ge Be Se Se 
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ASSSUDF _wF 14-58-1984 01:22:5 AX-11 Bliss-32 v4.0-74 p ? 
att 1eagee13be 94:88:23 FAXSAT Ob dese fe neue" 245. on 


3 1 1260 1 GLOBAL ROUTINE BASSSUDF _WF1 (ELEM_TYPE, ELEM_SIZE, ELEM_ADR, FORMAT_CHAR ! format character 
; ¢ 1261 1 ) : CALL_CCB NOVALUE = 

; 1 06 1 

; 4 1265 1 !+4 

; 5 : $8 : FUNCTIONAL DESCRIPTION: 

3 : 1266 1! Write formatted User Data Formatter. 

3 8 1267 1! Accept an 1/0 element, format it, and put it in the record buffer. 

; $2 1268 1! Calls record level processors to perform the actual 1/0 if the buffer 

; 9 ; 4 ; } is full or if non-forcible and end-of-record (no format character). 

; 32 : f} ; FORMAL PARAMETERS: 

; 234 1 78 1! ELEM_TYPE.rlu.v data a of the element 

> 235 1274 1! ELEM_SIZE.rlu.v size of the data element : 

> 236 \$f 1! ELEM_ADR.rlu.r adr of the data element to be written 

s gor 1276 1! Points to a descriptor for strings 

; $35 if 144 : FORMAT_CHAR.rlu.v type of format character which followed the data element 
; 240 1279 1°! IMPLICIT INPUTS: 

> 241 1280 1! 

: seg 1281 1! LUBS$V_AST_GUARD guard bit for AST reentrancy 
3 24 1386 1! LUBSL_PRINT_POS current cursor position 

3; 244 12835 1! LUBS$V_OUTBUF_DR indicates valid data in the output buffer. 

; 245 1284 1! LUBSW_R_MARGIN size of buffer specified in OPEN statement. 

; 246 1285 1! LUBSV_FORM_CHAR flag that a format character ('," or ';*) was 

: 247 1286 1! seen on the last element. 

; 248 1267 1! LUBSA_BUF _BEG pointer to beginning of user buffer 

; 249 1288 1! LUBSA_BUF __PTR pointer to current position in the buffer. 

; 250 1289 1! LUBSA_BUF _END pointer to last byte of buffer + 1. 

; $2) 1$30 ' ; 1SB$B_SCACE_FAC the 0 - -6 factor. 

; $28 1936 1 ! IMPLICIT OUTPUTS: 

> 254 lep> 3 ; 

g 2 1294 1! LUBSV_AST_GUARD uard bit for AST reentrancy 

; <0 1295 1! LUB$V_OUTBUF DR ndicates valid data in output buffer 

3s @o7 1296 1! LUBSV_FORM_CAAR flag to indicate a format character was seen 

; 258 1297 1! LUBSL_PRINT_POS internal cursor position. 

; $25 1$98 ! LUBSA_BUF _PTR next byte in the user buffer 

; $64 1300 1 ! ROUTINE VALUE: 

HY $06 1301 1 ! COMPLETION CODES: 

; 26 1302 1! 

> 264 130? .7 NONE 

3; 265 1304 1! 

; 266 1305 1 ! SIDE EFFECTS: 

; 267 1306 1! ; ; 2 

: 268 138 1 | If an AST goes off while we are in this routine and calls this routine, 

3; 269 1308 1! then this routine will be repeated upon return to the outer level. | : 
3 4 130) : : It will continue to be repeated until there are no more ASTs using this routine. 
3: 272 1311 1 !-- 

: 273 131g 1 

3: 274 131 BEGIN 

; 275 13i¢ 

: 276 1315 EXTERNAL REGISTER 

: 277 1316 CCB : REF BLOCK C, BYTE); 


MAP 
ELEM_ADR : REF VECTOR; 
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Bliss-32 V4.0-74 
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1 
BASRTL. 


element is call-by-reference 


AL 
BUF LENGTH, 


b ! Length of the output buffer 
RET-FORMAT_ADDR, 


! the end of the print buffer 

! points to next byte in format 

! string. Returned by the format 

! interpreter. 

RET_STR_ADDR, : Work ing storage in case the string 
s returned does not fit 
buffer 

! Working store in case the return 

! string is too long for the buffer. 

' desc. for ye format string 

! to the format interpreter 

! dynamic string descriptor for 


RET_STR_LENGTH, 
FORMAT_DSC : BLOCK C8, BYTE, 
DSC : BLOCK (8, BYTE); 


=z 
=> 
~~ 
o 
=> 


output from the format interpreter 


+ 
This loop is to ensure AST reentrancy. 


BEGIN 
CCB CLUBSV_AST_GUARD) = 1; 


14 

! Allocate a null dynamic string for the format interpreter to return its hand- 
! icraft in. The string is allocated here so that this will be AST 

reentrant and it is dynamic so that the return string will always fit. 


DSC CDSCSB_DTYPE] = DSC$K_DTYPE_T: 
DSC CDSCSB-CLASS) = DSCSK~CLASS~D: 
DSC CDSCSW7LENGTH) = 0: 

DSC CDSCSA~POINTER) = 6; 

Ps 


i Toggle the format character flag appropriately so that IO_END will know 
whether or not to do a PUT. 


CASE _- FORMAT CHAR FROM BAS$K_SEMI_FORM TO BASSK_NO_FORM OF 


CBAS$K_SEMI_FORM) : 
CCB CLUBSV_FORM_CHAR] 


CBAS$K_C FOR) : 

ccB ELUBSV FORM CHAR] = 1; 
CBASS$K No FORM] : 
ion CUBSV_FORM_CHAR] = 0; 


“ 
— 
ee 


BASUDF WF .832;1 
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BASSSUDF _WF 16-Sep-1984 01:22:55  VAX"11 Bliss-32 v4.0-7 p 
pasegue ere e= ibe 945882 BASRTL. SRE IBASUDFUF 63951 at 


Te 
+? 1 ee format interpreter. It will scan the format string, check its 


'¢ 
i Update the format pointer so that it now points to the next format 


7 Cal 

8 7 validity, and format this element according to the string. 

9 7 Check for a format string Length of 0 and reset to the front of 
40 7 ' the spring if nogentnes. Format reversion always starts a new record 
‘3 39 _by definition. So, put the current record. 

4 8 

4 8 IF .CCB CISBSW_LEN_REM] EQL 0 

45 8 THEN 
rf 8 BEGIN 
4 8 ar wate WRITE() 
48 8 ISBSA_FMT “br. = .CCB CISBSA_FMT BEG); 
49 8 CB ISBSWLLEN_REM] = .CCB CISBSW_FMT_LENJ; 
i! a 

25 9 FORMAT_DSC pecs or reed = DSCSK_DTYPE_T; 

5 9 ORMAT_DSC CDSCS$B_CLASSJ_= DSCSK-CLASS'S; 

54 9 pieeat DSC COSCSWLLENGTH) = .CCB CISB$Q_LEN nen? 
$2? 9 MAT-DSC_CDSCSA_POINTER) = .CCB CISBSA_FMT P 
309 ; BASSSTORRAT INT (JELEM_ADR, FORMAT_DSC, TELER_ TPE, DSC, RET_FORMAT_ADDR, .CCB CISBS$B_SCALE_FACI); 
328 9 

59 9 

0 9 

1 0 

0 
0 
0. 


BAUS WN —$O OONAUES WN OOONOUE WN 


tad iad adadadadbiatiatadtdiadbadadbataiataadatadabdatatatdatabaiadadbabtadtababadadtadtadatadadtadaadatatadadababababababadbad 
Fe ae oy oy ot ot ot et ot et et et eh eh i hhh heb nk nh od nd ad ah ad el ed ed el ele ele 


BERR EES FWA SWI WNW WWW NAAN B&B BAA WWI 


rs i field. 

6 te 

36 

368 0 CCB CISBSW_L EM] = .CCB piseee LEN_REM] = (.RET_FORMAT_ADDR - .CCB CISBSA_FMT_PTR)); 
4 CCB CISBSA_F TR] = .RET_FORMAT_ADOR; 

365 

is ; 

6 0 ! Now that the format interpreter has been called, the congtt of the for- 
368 07 ! matted item is known exactly. It is time to determine if the item will 
369 08 ! fit into the output buffer. If the item is too big. then it is put out 
370 09 ! in sections. No check is made to see whether the buffer is already 
371 10 ; “ot Ath The assumption is made that since this is formatted output, 
He 12 it will be put out exactly as specified. 

7% 1 ; 

75 14 RET_STR_ADDR = .DSC CDSCSA_POINTER); 

76 15 RET-STR-LENGTH = my Cosc Sut ENGTH); 

77 16 BUF _END = (IF .CCB CLUBSW IN] GTR 0 

78 17 TREN m8 tu LUBSA.BUF” ENDS. Nece CLUBSA_BUF_BEG) + .CCB CLUBSW_R_MARGIN]) 

79 18 ELSE .CCB _ A_BUF_END 
$e; 3 UF_LENGTH = UFEND = =" .CCB’ CLUBSA BUF _PTRI; 

33 $3 atts 3 CLUBSA_BUF _PTR] + .RET_STR_LENGTH LEQ .BUF_END DO 

Be 35 CHSMOVE (.BUF_LENGTH, .RET_STR_ADDR, .CCB CLUBSA_BUF _PTR)); 

86 5 '¢ 

87 § i Dump the contents of the buffer and update the length and 

4 i & the pointer into the returned formatted string. 

90 ¢3 } 

91 0 CCB CLUBSA_BUF_PTR] = .BUF_END; 


16 
BASSSUDF _WF ibese =1984 01:22:5 AX-11 Bliss-32 V4.0-74 
passe 12-808- 1382 91:88:23 BASRTL. SRC JBASUDF WF 
: 39 1431 4 BASS$DO WRITE (BAS$K_BUF_EXC); 
; 39 14 2 4 RET_STR-LENGTH = .RET STR LENGTH = .BUF LENGTH; 
; 394 1433 4 RET“STR-ADDR = .RET STi LADDR + .BUF_LENGTH 
; 38 14 4 4 BUF “LENGTH = .BUF_ERND -".CCB CLUB $ABUF *PTRI: 
: 39 14 
; 398 14 8 CHSMOVE (.RET_STR_LENGTH, .RET_STR_ADDR, .CCB CL UBS BUF _PTRI); 
: 233 1438 Ms CCB CLUBSA_BUF_ PIRI = CCB CLUBSA_GuF_PfR] + .RET_STR_LENGTH; 
; rt 1e79 Update the current cursor position. 
: 40 144 f CCB CLUBSL_PRINT_POS] = .CCB CLUSS$L_PRINT_POS] + .RET_STR_LENGTH; 
: che 1448 CCB LUBSV-OUTBUF_DRJ = 1; = . =STRALE 
> 406 1445 UNTIL .CCB CLUBSV_AST_GUARD]; ! AST 
407 1446 § AST_G End of AST guard loop 
: 410 1449 3 Lee the heap storage allocated. 
: 412 1451 § STRSEREE DX (DSC); 
; 413 145¢ : CCB CLUBSV_AST_GUARD] = 
> 415 1454 7 ND: ! END of BASSSUDF_WF1 
07FC 00000 ENTRY BASSSUDF_UF1, Save R2,R3,R4,R5,R6,R7,R8B,R9,-; 
5E 1¢ ¢2 00002 SUBL2 #28, SP 
SA AO AB 9E 00005 MOVAB -96(R11), R10 
57 FE AB 9E 00009 MOVAB =-2(R11), R7 
6A 0 88 0000D 1$ BISB2 2, (R10) 
OC AE 020E0000 &8F D0 00010 MOVL #34471936, DSC 
10 AE D4 00018 LRL C+4 
02 01 10 AC CF 0001B CASEL FORMAT_CHAR, #1, #2 
0008 0006 0006 00020 2$ «WORD $28. 
-2$° 
88 00026 3$: BISB2 #4, (R7) 
11 00029 5$ 
BA 00028 4$: BICB2 #4, (R7) 
BS OO02ZE 5$: TStw = = 115 (CCB) 
12 00031 BNEQ 6$ 
16 00033 JSB BAS$$D0 WRITE 
D0 0039 MOVL  -132(CCB), ~128¢¢cB) 
BO 0003F MOVW  -142(CCB). -115(CCB) 
80 0045 6$ MOVW #270, FORMAT DSC+2 
B 0048 MOVW  -115(CCB), FORMAT_DSC 
DO 0005 MOVL  -128(CCB). FORMAT~DSC+4 
98 0095 -144(CCB), =(SP) 
9F 0005A PUSHAB RET_FORMAT_ADDR 
9F 0005D PUSHAB DSC™ 
bb 90060 SHL ELEM_TYPE 
F 0006 PUSHAB FORMAT_DSC 
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18-sep-19 4 $ 9:68:27 AX-11 Bliss-32 V4.0-7 
14-Sep-1984 11:56:4 BASRTL.SRC BASUDF WF . 835; 31 


—— ROUTINE BASSSUDF _WF9 ! 1/0 end for UDF level of Write Formatted. 


JSB_UDF9 NOVALUE = 


ing 
‘esenceireaenice DESCRIPTION: 


Call the record level 1/0 end of List routine. Reset the cursor position 
if a PUT was done 


i FORMAL PARAMETERS: 


NONE 
i IMPLICIT INPUTS: 

LUBSV_AST_ GUARD Guard for AST reentrancy 

LUBSV_FORM_CHAR Last element transmitter ended with a format char 
! IMPLICIT OUTPUTS: 

LUBSV_AST_GUARD guard for AST reentrancy 

LUBSL_PRIAT_POS current cursor position 


i ; ROUTINE VALUE : 


COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


This routine will loop back and reexecute if it detects that it was 
called by an AST while it was executing. 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


'¢ 
! This outer loop is to detect an AST calling this routine while it is 
i executing. 
DO 
8 TLuBsy AST_GUARD] = ! Initialize the guard bit 
BASSSREC WFO (3; 
! Time tO reset the cursor position to zero perhaps 


IF NOT .CCB CLUBSV_FORM_CHAR) THEN CCB CLUBSL_PRINT_POS) = 0; 


END 
UNTIL .CCB CLUBSV_AST_GUARD]; ! End of AST guard loop 
CCB CLUBSV_AST_GUARD) = 0; 
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BASSSUDF _wF 
tte i 
: 675 1913 1 END; 
52 pdDdO 
5 AO AB +3 0 
6 0 880 
000000006 00 160 
03 FE AB 02 €0 8 
» AB 04 
52 AO AB 9E 0 
£7 62 05 €10 
62 20 8A 0 
046 BAO 
05 0 
; Routine Size: 37 bytes, Routine Base: _BASSCODE + 0137 
; 676 1514 1 
: 677 1515 1 END 
; 478 1516 1 
; 679 1517 GO ELUDOM 
; PSECT SUMMARY 
: Name Bytes 
:  _BASSCODE 348 NOVEC,NOWRT, RD, 
2 Library Statistics 
: cocccece Symbol 
: File Total Loaded 
: _$255$DUA28:(SYSLIBIJSTARLET.L32;1 9776 7 


COMMAND QUALIFIERS 


sé 
16-Sep-1984 01:22:5 AX-11 Bi iss =32 v4.0-74 Page 13 
12-808 - 1 3b 9 &¢ 23 BASRTL.SRC SBASUDFUF .B3 71 9 5) 
0000 BASSSUDF _wWF9:: 
PUSHL 3 : 1936 
0002 MOVAB = genta) R2 + 150 
0006 1$: BIS82 #32, (R25 : 
0009 JSB BASS$SREC_wWF9 + 1504 
OOOF BBS " -2(CUB), 2$ + 1507 
0014 CLRL 0s-_- = 56 CCB) : 
0017 28: MOVAB -96(R11), R2 : 1510 
0018 BBC #5, (R2). 1$ : 
001F BICB2 #32, (R25 + 1512 
0022 POPR #*M<R2> : 1513 
0024 RSB : 
Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
eoccceee Pages Processing 
Percent Mapped Time 
0 581 00:01.2 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=L1S$:BASUDF WF /OBJ=OBJ$:BASUDFWF MSRC$:BASUDF WF /UPDATE=(ENHS$:BASUDF WF ) 


—@m 


powenes/ reais 36347 
Used: 196 pages 


BASSSUDF _wF 

1-013 

; 480 1518 0 

; Size: 348 code + 0 data bytes 
; Run Time: 00:15.5 

; Elapsed Time: 00:34.1 

; Lines/CPU Min: 5868 


Soeethation, Complete 


Be p-1984 01 
VenSepm19b6 11:56:4 


! End of module - BASUDFWF 


Ax-11 Blis 
BASRTL.SRC 


=32 v4.0-74 
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0032 ° H-BT13A-SE | T CORPORATION 
: VAX/ VMS V4.0 = PROPRIETARY 


ENT CORPORATION 
ND PROPRIETARY 


003 AH-BT13A-SE - | | PM 
\ VAX/VMS V4.0 A 


